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J136A LOADER FOR STYLE E PROGRAM AND DATA CARDS 

JI36 Is a self-loading routine which loads Style E program 
and data cards. The loader loads instructions with absolute, 
relative, and symbolic locations and addresses in either octal 
or decimal. Operation codes must be in octal. Data v/ords of 
two forms are accepted: fixed point decimal data punched with 
decimal point and a specified binary scale factor, ajid floating 
decimal data of the form used by J102. 

The principle of the loader is straightforward: convert 
the location, convert and store the word to be loaded, continue 
this process with the other words of the routine to be loaded 
until the end of a routine is indicated by a punch in Cog at 
which time sweep back over the routine just loaded filling in 
absolute equivalents for symbolic addresses which were undefined 
when first encountered, v/lpe out the Symbol Table in prepara- 
tion for another routine, then begin loading the next routine 
or begin execution according to the punch in Cog. 

Locations and addresses are four character fields and will 
be converted base ten unless prefixed by a fifth character (by 
convention a comma) to Indicate base eight. Blank columns are 
everywhere numerically equivalent to zeros but logically dis- 
tinct from zeros. Relative locations and addresses consist of 
a character ( A through Z, #, $) followed by a three-digit 
number. When a relative location or address is converted its 
absolute equivalent is formed by adding to the three-digit 
number the contents of the cell reserved for the character by 
the loader. A character is "defined" by loading a non-negative 
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integer < 4096 Into the cell reserved for the character. If 
at conversion time the character part of a relative location or 
address is still undefined (as indicated by a negative number in 
the cell reserved for the character) the loader will halt. A 
character may be redefined at any time in the loading process 
by loading the new number into the cell reserved for the char- 
acter. 

The initial condition of the loader allows for 100 symbols 
(* through * 99) but this number may be changed at will by 
the programmer. A esrrabolic location or address consists of an 
asterisk followed by a three-digit number. One word is allowed 
for each symbol in the Symbol Table. When a symbolic location 
is encountered the loader verifies that the symbol has not pre- 
viously been defined, then defines the sjnnbol by storing the 
value of a counter (cell 43 corresponding to the character "^") 
in the Ssrmbol Table . The loader prepares to store the word to 
be loaded in the cell indicated by the counter, converts the 
word, advances the counter by one and stores the word. When a 
blank location is encountered the treatment is identical to that 
for a symbolic location except, of course, there is no symbol to 
define. Notice that the coiinter is automatically advanced only 
for sjnnbolic and blank locations. In converting a symbolic 
address the loader replaces the symbolic address by its absolute 
equivalent if the sjrrabol has been defined, otherv/ise an entry 
is made in the Forward Reference Table so that when loadilng of 
the current routine is complete the loader may go back and fill 
in an absolute address for the symbolic address. If the symbolic 
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address is still undefined (as indicated by a negative number 
in the Symbol Table) the loader will halt. 

When C^Q is punched ("12" for +, "11" f or - ) , the loader 
will interpret the card as containing a data v/ord of the follow- 
ing format: 

Cno contains the sign 

C,Q_-,Q contains the number with decimal point 

or an integer < 2-^^. 
CoT_oc is blank for floating decimal numbers or, 
in the case of fixed point numbers, con- 
tains "q" (0 < q < 40) where 2~^ is the 
desired scale factor to apply to the 
number to scale it down to a proper 
fraction for internal use. Floating 
point numbers are converted exactly, 
fixed point numbers are rounded. 
The loader interprets a punch in C^g as indicating the end 
of a routine. The loader fills in absolute addresses for symbolic 
addresses noted in the Forward Reference Table, then it clears 
the Symbol Table to -I's in preparation for another routine and 
finally transfers to the cell corresponding to the punch in C05. 
If the punch is a comma, the loader will be reentered for load- 
ing another routine. If the punch is a period, JOHNNIAC control 
will pass to cell 27 which according to convention will have 
been loaded with a transfer instruction to the beginning of the 
master routine for the program Just loaded. 

JI36A is designed for a master routine-subroutine approach 
to a problem with relative addresses for blocks of data, symbolic 



J136A 

-4- 



addresses for Internal references in routines and (by convention) 
a special set of relative addresses using the character "#" for 
links between routines through a directory provided by the pro- 
grammer . 

A small limitation of JI36A is that forward reference 
symbolic addresses are not permitted in words having absolute 
or relative locations. 

Timing: Loads at full speed except for cards punched in Cog. 
Storage: - {^99) ^q can be varied. 
Program available as: JI36A. 



J. C. Shaw 
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IDENTIF, LOCN OPN ADDR OPN ADDR COMMENTS 

1111111111222222222233333333334444444444555555555566666666667777777777 
12 34 56789012345 6789012 3456 789012 34567890123456 7890123456 7890123 4567^,90123456789 

SAMPLE 1000 020 1234 024 4095 ABSOLUTE DECIMAL LOCATION AND ADDRESSES 

SAMPLE .1750 020,2322 024,7777 ABSOLUTE OCTAL LOCATION AND ADDRESSES. 

SAMPLE A123 020 A123 010 U 13 RELATIVE LOCAT ION. AND ADDRESSES. 

SAMPLE * 35 020 * 50 024 * 51 SYMBOLIC LOCATION AND ADDRESSES. 

SAMPLE S 1000, SET THE COUNTER TO 1000 AND PRESET TABL 

SAMPLE S $100 SKIP THE COUNTER 100. 

SAMPLE $ A SET THE COUNTER EQUAL TO AOOO. 

SAMPLE A 2000 SET A EQUAL TO 2000. 

SAMPLE A $ SET A EQUAL TO COUNTER VALUE. 

SAMPLE ff 10 010 $ 014 $ SET DIRECTORY FOR ROUTINE WHICH FOLLOWS 

SAMPLE &1234, 5678901 11 FIXED POINT DATA, Q EQUALS 11. 

SAMPLE -123456789012 39 FIXED POINT DATA, Q EQUALS 39. 

SAMPLE &52. 123456789 FLOATING POINT DATA FOR J102. 

SAMPLE . 010 HI .SET LINK TO ROUTINE, CLEAN UP, KICK OFF 
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J136A PROGRAMMED HALTS 
(in octal) 



NIA IR Reason 



0034 


130 0033 134 0033 


0167 


010 0173 134 0166 


0220 


001 0220 134 0217 


0244 


002 0244 134 0243 


0252 


130 0251 020 


0275 


002 0275 134 0274 



No link to beginning of program. 

Ambiguous symbolic location somewhere 
in the last region, or symbol table 
wasn't preset to -I's. 

Too many forward references in the 
current region. 

Undefined symbol in left address 
somewhere in last region. 

Undefined symbol in right address 
somewhere in last region. 

Undefined relative location or address 
on last card. 
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J136A Programmed Halts 
(in octal) 



NIA 


Action 


0034 


PR. 


0167 


PR, 010 0161, PR. 


0220 


PR. 


0244 


PR, 010 0242, PR. 


0252 


PR. 


0275 


PR, 010 0273, PR. 



NIA Meaning of halts: 

0034 No link to beginning of routine. 

0167 Ambiguous symbol in region being loaded. Its number 
plus (400) -j^Q appears as the right address in IR of 

second PR card. (Failure to preset symbol table by 
a punch in C^g also leads to an ambiguous symbol 

Indication.) 

0220 Too many forward references . 

0244 Undefined symbol in region Just loaded. Its number 
plus (400)^Q appears as the right address in IR of 
second PR card. 

0252 Undefined symbol in region Just loaded. Its number 
plus (400) j^Q appears as the right address in IR of 
the PR card. 

0275 Undefined character for relative location or address. 
The. character code appears as the right address in 
IR of the second PR card. 



J136A PROGRAMMED HALTS 
(in octal) 



NIA 


IR 


0167 


010 0173 13^ 0166 


0220 


001 0220 134 0217 


0244 


002 0244 134 0243 


0252 


130 0251 020 


0275 


002 0275 13^ 0274 



Reason 

Ambiguous symbolic location somewhere 
in the last region, or symbol table 
v/asn't preset to -I's. 

Too many forward references in the 
current region. 

Undefined sjnnbol in left address 
somewhere in last region. 

Undefined symbol in right address 
somewhere in last region. 

Undefined relative location or address 
on last card. 
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IDENTIF. 


LOCN 


OPN 


ADDR 


OPN 


AODR 


COMMENTS 


J136E001 


5 








76, 




J136E002 


P 








64 




J 1 36 E 00 3 


T 








6 




J136E004 





100 





010 


* 9 


LINK TO BEGINNING OF LOADER. 


J136E005 


1 


100 





004 


5 


J135A AS IT EXISTS IN STORAGE. 


J136E006 


2 


101 


3 


014 


3 




J136E007 


3 












J136E008 


4 


075 


79 


002 


2 




J136E009 


5 


010 


1 


000 


»4000 




J136E010 


6 










TEMPORARY 


J136E011 


7 




f 






TEMPORARY 


J136E012 


8 










TEMPORARY 


J136E013 


9 










TEMPORARY 


J136E014 


10 










BLANK COLUMN INDICATOR 


J136E015 


11 


100 


0000 


000 


0000 


# CELL — ORIGIN OF DIRECTORY 


J136E016 


12 










TEMPORARY COUNTER 


J136E017 


13 










IMAGE VALUE 1 


J136E018 


14 










IMAGE VALUE 2 


J136E019 


15 










IMAGE VALUE 4 


J136E020 


16 


100 


0000 


000 


0000 


CONSTANT 


J136E021 


17 


100 


0000 


000 


0000 


A CELL 


J136E022 


18 


100 


0000 


000 


0000 


B CELL 


J136E023 


19 


100 


0000 


000 


0000 


C CELL 


J136E02A 


20 


100 


0000 


000 


0000 


D CELL 


J136E025 


21 


100 


0000 


000 


0000 


E CELL 


J136E026 


22 


100 


0000 


000 


0000 


F CELL 


J136E027 


23 


100 


0000 


000 


0000 


G CELL 


J136E028 


24 


100 


0000 


000 


0000 


H CELL 


J136E029 


25 


100 


0000 


000 


0000 


I CELL 


J136E030 


26 


000 


0001 


000 


0000 


CONSTANT 


J136E031 


27 


130 


• 


134 


• 


• CELL LINK TO BEGINNING OF PROGRAM 


J136E032 


28 


000 





020 


p 11 


DUMMY 


J136E033 


29 










IMAGE VALUE 8 


J136E034 


30 










IMAGE VALUE 16 


J136E035 


31 










IMAGE VALUE 32 


J136E036 


32 








544 


CONSTANT - CELL 


J136E037 


33 


100 


0000 


000 


0000 


J CELL 


J136E038 


34 


100 


0000 


000 


0000 


K CELL 


J136E039 


35 


100 


0000 


000 


0000 


L CELL 


J136E040 


36 


100 


0000 


000 


0000 


M CELL 


J136E041 


37 


100 


0000 


000 


0000 


N CELL 


J136E042 


38 


100 


0000 


000 


0000 


CELL 


J136E043 


39 


100 


0000 


000 


0000 


P CELL 


J136E044 


40 


100 


0000 


000 


0000 


Q CELL 


J136E045 


41 


100 


0000 


000 


0000 


R CELL 


J136E046 


42 










TRANSLATOR 


J136E047 


43 


100 


0000 


000 


0000 


$ CELL — — COUNTER 


J136E048 


44 








400 


♦ CELL ORIGIN OF SYMBOL TABLE 


J136E049 


45 








100 


NUMBER OF SYMBOLS PERMITTED 


J136E050 


46 








245 


ORIGIN OF FORWARD REFERENCE TABLE. 
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IDENTIF. 


LOCN 


OPN 


ADDR 


OPN 


AOOR 


COMMENTS 


136E051 




M 








155 


NUMBER OF FORWARD REFERENCES PERMITTED. 


J136E052 




48 








8 


CONSTANT 


J136E053 




49 


000 





020 


P 1 


DUMMY 


J136E054 




50 


100 


0000 


000 


0000 


S CELL 


J136E055 




51 


100 


0000 


000 


0000 


T CELL 


J136E056 




52 


100 


0000 


000 


0000 


U CELL 


J136E057 




53 


100 


0000 


000 


0000 


V CELL 


J136E058 




54 


100 


0000 


000 


0000 


W CELL 


J136E059 




55 


100 


0000 


000 


0000 


X CELL 


J136E060 




56 


100 


0000 


000 


0000 


Y CELL 


J136E061 




57 


100 


0000 


000 


0000 


Z CELL 


J136E062 




58 


174 


0000 


000 


0000 


CONSTANT 


J136E063 




59 


100 





010 


* 9 


♦ CELL LINK TO BEGINNING OF LOADER. 


J136E064 




60 










TEMPORARY 


J136E065 




61 










WORD BUILDUP CELL 


J136E066 




62 










TEMPORARY 


J136E067 




63 










CURRENT POSITION IN FWD REF TABLE. 


J136E068 


P 


OS 






1 


39 


POWERS OF TEN 


J136E069 


P 


16 






10 


39 




J136E070 


P 


26 






100 


39 




J136E071 


P 


36 




1000 


39 




J136E072 


P 


46 




10000 


39 




J136E073 


P 


56 




100000 


39 




J136E07A 


P 


66 




1000000 


39 




J136E075 


P 


75 




10000000 


39 




M136E076 


P 


86 


100000000 


39 




-J136E077 


P 


96 


r 1000000000 


39 




J136E078 


P 


106 


- 10000000000 


39 




J136E079 


P 


ll&lOOOOOOOOOOO 


39 




J136E080 


«• 


9 


020 


46 


050 


63 


PRESET POSITION IN FWD REF TABLE. 


J136E081 


■»■ 


1 


101 


T- 


101 


T 1 


COPY» ENCODE AND EDIT IMAGE. 


J136E082 






004 


T 


020 


T 1 




J136E083 






075 


12 


064 


29 




J136E084 






060 


13 


101 


T 




J136E085 






101 


T 1 


004 


T 




J136E086 






020 


T 1 


075 


12 




J136E087 






064 


14 


020 


13 




J136E088 






064 


13 


101 


T 




J136E089 






101 


T 1 


004 


T 




J136E090 






020 


T 1 


075 


12 




J136E091 






024 


14 


064 


15 




J136E092 






020 


13 


064 


13 




J136E093 






101 


T 


101 


T 1 




J136E094 






004 


T 


020 


T 1 




J136E095 






075 


12 


024 


14 




J136E096 






064 


14 


020 


13 




J136E097 






064 


13 


101 


T 1 




J136E098 






101 


T 


020 


T 1 




J136E099 






004 


T 


075 


12 




J136E100 






024 


13 


050 


13 





IDENTIF. 



LOCN OPN ADDR OPN ADDR 
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COMMENTS 



J136E101 
J136E102 
J136E103 
J136E104 
J136E105 
J136E106 
J136E107 
J136E108 
J136E109 
J136E110 
J136E1H 
J136E112 
J136E113 
J136E114 
J136E115 
J136E116 
J136E117 
J136E118 
J136E119 
J136E120 
J136E121 
J136E122 
J136E123 
J136E124 
J136E125 
-J136E126 
J136E127 
J136E128 
J136E129 
J136E130 
J136E131 
J136E132 
J136E133 
J136E13A 
J136E135 
J136E136 
J136E137 
J136E138 

J136E139 
J136E140 
J136E141 

J136E142 
J136E143 
J136E144 
J136E145 
J136E146 
J136E147 
J136E148 
J136E149 
J136E150 



021 P 125 



* 10 

* 11 

* 4 






71 
3 



* 12 



» 13 



» 15 



125 
125 

060 
050 
101 
004 
024 
020 
020 
125 
050 
002 
020 
010 
056 
004 
006 
020 
050 
024 
010 
020 
025 
020 
060 
120 
020 
002 
050 
071 
020 
020 
071 
020 
071 
020 
024 

004 
074 
020 
010 
056 

006 
025 
001 
020 
024 
020 



125 
050 
125 
101 
020 
075 
050 
064 
125 
125 
071 
100 
010 
060 
056 
020 
060 
024 
020 
056 
134 
002 
002 
050 
056 
050 
071 
020 
020 
050 
010 
010 
050 
010 
050 
010 
024 

075 
064 
010 
060 
014 
020 
020 
025 
134 
056 
050 
62 024 



14 

29 

2 

30 
1 
1 

30 

30 
4 

30 
4 
2 

3 

10 
$ 

71 
$ 

12 

42 
5 
4 

58 
$ 


4 

80 

62 
9 


6 

3 

1 

61 
9 

6 

13 

6 
46 
15 
63 





13 

15 

4 

4 





12 

31 

30 

2 

31 

23 



20 



11 




$ 
8 


12 
4 

12 
8 

61 
5 

26 
4 
4 

40 

40 
1 

40 
2 

40 
2 

21 

61 

20 



13 

63 
47 


14 
63 

S 



IF C36 IS BLANK THEN READ NEXT CARD. 
CONVERT LOCATION, 

SYMBOLIC LOCATION ROUTINE. 



ADVANCE COUNTER. 

PREPARE TO STORE WORD. 

HALT IF AMBIGUOUS SYMBOLIC LOCATION. 

IF BLANK LOCATION GO TO * 4. 
RELATIVE OR ABSOLUTE LOCATION. 
PREPARE TO STORE WORD. 
CLEAR WORD BUILDUP. 

IF C18 IS PUNCHED GO TO DATA ROUTINE. 

SET ALTERNATOR. 

SHIFT BLANK COLUMN INDICATOR. 

DISCARD SPACE. 

CONVERT OPERATION. 



CONVERT ADDRESS. 
SYMBOLIC ADDRESS ROUTINE. 

HALT IF TOO MANY FORWARD REFERENCES. 



IDENTIF. 



LOCN OPN ADDR OPN ADDR 
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COMMENTS 



J136E151 
'J136E152 

J136E153 

J136E154 

J136E155 

J 136 El 56 

J136E157 

J136E158 

J136E159 

J136E160 

J136E161 

J136E162 

J136E163 

J136E164 

J136E165 

J136E166 

J136E167 

J136E168 

J136E169 

J136E170 

J136E171 

J136E172 

J136E173 

J136E174 

J136E175 

"I136E176 

J136E177 

J136E178 

J136E179 

J136E180 

J136E181 

J136E182 

J136E183 

J136E184 

J136E185 

J136E186 

J136E187 

J136E188 

J136E189 

J136E190 

J136E191 

J136E192 

J136E193 

J136E194 

J136E195 

J136E196 

J136E197 

J136E198 

J136E199 

J136E200 



* 14 024 42 050 



♦ 6 060 T 056 



» 

* 
» 

* 



021 
70 020 
8 020 
020 T 
001 * 
020 S 

64 056 * 
025 
050 

17 005 
005 

60 056 
072 

62 050 
002 

63 056 

61 077 

19 014 

65 056 
056 

67 130 $ 

66 001 « 

18 014 » 
020 

69 014 * 

68 020 T 
056 * 
025 

16 

20 024 
052 * 
050 T 



020 £ 



020 T 
020 P 
27 020 
020 $ 
056 * 

21 001 
002 

22 050 

23 060 



24 020 $ 



004 T 
060 T 
29 020 $ 
004 T 
060 T 



62 001 

12 050 

61 050 

4 071 



61 

7 



5 

1 010 $ 1 

010 ♦ 40 

16 020 63 

P 056 » 17 

63 025 46 

18 020 

19 056 * 60 

61 020 

21 056 » 62 

020 

63 134 $ 

020 T 
21 050 



64 056 

66 020 

67 014 
020 

67 056 
64 004 

* 024 

68 060 
025 

69 050 

* 006 
010 

26 052 
26 120 



1 

4 
1 



1 
3 

2 
3 

2 
3 



* 65 

* 67 



16 
45 



050 
010 
002 
014 
48 050 
010 

21 025 
23 020 - 

22 134 5 
010 * 
010 
010 
036 
010 
010 
036 
010 







69 

25 



3 

40 

27 

27 

2 

40 

1 


24 
24 
40 

3 
29 
40 

3 
30 



STORE ITEM IN FWD REF TABLE. 

FORM INSTRUCTION. 

IF NOT DONE GO TO ♦ 7. 

STORE WORD. 

IF C36 IS BLANK GO BACK TO ♦ 1. 

SET SWITCH ACCORDING TO C36. 
SUBSTITUTE FOR FORWARD REFERENCES. 



HALT IF UNDEFINED SYMBOL IN LEFT ADDR. 



HALT IF UNDEFINED SYMBOL IN RIGHT ADDR. 



» OR . BRANCH 

ADDRESS CONVERSION ROUTINE. 



PEEL OFF PREFIX. 
IF OCTAL GO TO * 27 



CALL FOR HIGH ORDER CHARACTER 



HALT IF UNDEFINED REGION INDICATOR. 



IDENTIF. 



LOCN OPN ADDR OPN ADDR 
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COMMENTS 



J136E201 
J136E202 
J136E203 
J136E204 
J136E205 
J136E206 
J136E207 
J136E208 
J136E209 
J136E210 
J136E211 
J136E212 
J136E213 
J136E214 
J136E215 
J136E216 
J136E217 
J136E218 
J136E219 
J136E220 
J136E221 
J136E222 
J136E223 
J136E224 
J136E225 
.I136E226 
.J136E227 
J136E228 
J136E229 
J136E230 
J136E231 
J136E232 
J136E233 
J136E234 
J136E235 
J136E236 
J136E237 
J136E238 
J136E239 
J136E2A0 
J136E241 
J136E242 
J136E243 
J136E244 
J136E245 
J136E246 
J136E247 
J136E248 
J136E249 



» 30 



* 26 
» 25 

* 28 
» 40 



» 41 

» 80 



* 81 



» 89 



* 90 



* 87 

» 86 

* 82 

* 83 
» 84 

» 88 

* 91 

* 92 



020 
004 
036 
025 
010 
005 
001 
024 
020 
050 
075 
020 
050 
075 
020 
050 
075 
060 
010 
071 
020 
020 
071 
020 
020 
025 
024 
036 
020 
001 
025 
020 
020 
025 
120 
044 
020 
060 

061 

060 

020 

020 

024 

044 

000 

050 

000, 

020 

010 



$ 
T 2 
T 3 
* 28 



» 23 
26 
31 
31 

1 
29 
29 

1 
14 
14 

1 
T 



13 
P 
$ 

34 

28 
$ 
P 1 
P 1 

61 

* 88 

* 90 
P 



010 
024 
020 
006 
025 
010 
020 
052 
071 
020 
050 
075 
020 
050 
075 
020 
050 
010 

050 
050 
010 
050 
050 



$ 

T 4 

58 



P 9 

60 

61 

61 

T 

* 92 

62 

61 

62 



62 

1000 

62 





* 40 
T 1 
« 21 

* 26 
P 

* 26 
# 

* 41 
1 

30 
30 

1 
15 
15 

1 
13 
13 

* 41 

T 4 
62 

* 40 
60 

* 88 
010 * 40 
006 «■ 88 

1 
61 
49 
88 
81 
20 
82 
82 
61 
91 
86 
70 

70 
84 
83 



004 
060 
025 
020 
014 
010 
002 
001 
004 
036 
001 
010 

010 
056 
065 
072 
076 
010 
020 
010 



* 87 



* 89 



CHARACTER ROUTINE. 



EXIT 

DATA ROUTINE* 



STORE SIGN CHARACTER SHIFTED. 



IF DECIMAL POINT GO TO * 88. 



000*0000 
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